home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / financ1a / moneymat.frm < prev    next >
Text File  |  1999-10-13  |  42KB  |  1,172 lines
  1. VERSION 5.00
  2. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
  3. Begin VB.Form frmMoneyMath 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Financial Reckoner"
  6.    ClientHeight    =   6360
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   7740
  10.    ForeColor       =   &H00C0C0C0&
  11.    Icon            =   "MoneyMath.frx":0000
  12.    LinkTopic       =   "Form2"
  13.    LockControls    =   -1  'True
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   6360
  17.    ScaleWidth      =   7740
  18.    Begin VB.Frame Frame2 
  19.       Caption         =   "Answer"
  20.       BeginProperty Font 
  21.          Name            =   "MS Sans Serif"
  22.          Size            =   8.25
  23.          Charset         =   0
  24.          Weight          =   700
  25.          Underline       =   0   'False
  26.          Italic          =   0   'False
  27.          Strikethrough   =   0   'False
  28.       EndProperty
  29.       Height          =   2385
  30.       Left            =   4020
  31.       TabIndex        =   11
  32.       Top             =   3840
  33.       Width           =   3525
  34.       Begin VB.PictureBox Picture2 
  35.          Height          =   405
  36.          Left            =   1080
  37.          ScaleHeight     =   345
  38.          ScaleWidth      =   375
  39.          TabIndex        =   18
  40.          Top             =   210
  41.          Width           =   435
  42.          Begin VB.CommandButton cmdClear 
  43.             BeginProperty Font 
  44.                Name            =   "MS Sans Serif"
  45.                Size            =   8.25
  46.                Charset         =   0
  47.                Weight          =   700
  48.                Underline       =   0   'False
  49.                Italic          =   0   'False
  50.                Strikethrough   =   0   'False
  51.             EndProperty
  52.             Height          =   345
  53.             Left            =   -30
  54.             Picture         =   "MoneyMath.frx":030A
  55.             Style           =   1  'Graphical
  56.             TabIndex        =   19
  57.             TabStop         =   0   'False
  58.             ToolTipText     =   "Clear"
  59.             Top             =   0
  60.             Width           =   405
  61.          End
  62.       End
  63.       Begin VB.PictureBox Picture1 
  64.          Height          =   405
  65.          Left            =   420
  66.          ScaleHeight     =   345
  67.          ScaleWidth      =   375
  68.          TabIndex        =   14
  69.          Top             =   210
  70.          Width           =   435
  71.          Begin VB.CommandButton cmdAnswer 
  72.             BeginProperty Font 
  73.                Name            =   "MS Sans Serif"
  74.                Size            =   8.25
  75.                Charset         =   0
  76.                Weight          =   700
  77.                Underline       =   0   'False
  78.                Italic          =   0   'False
  79.                Strikethrough   =   0   'False
  80.             EndProperty
  81.             Height          =   345
  82.             Left            =   -30
  83.             Picture         =   "MoneyMath.frx":035F
  84.             Style           =   1  'Graphical
  85.             TabIndex        =   15
  86.             TabStop         =   0   'False
  87.             ToolTipText     =   "Compute answer"
  88.             Top             =   0
  89.             Width           =   405
  90.          End
  91.       End
  92.       Begin VB.TextBox txtAnswer 
  93.          Alignment       =   1  'Right Justify
  94.          BackColor       =   &H80000018&
  95.          BeginProperty DataFormat 
  96.             Type            =   1
  97.             Format          =   """$""#,##0.00"
  98.             HaveTrueFalseNull=   0
  99.             FirstDayOfWeek  =   0
  100.             FirstWeekOfYear =   0
  101.             LCID            =   1033
  102.             SubFormatType   =   2
  103.          EndProperty
  104.          BeginProperty Font 
  105.             Name            =   "MS Sans Serif"
  106.             Size            =   8.25
  107.             Charset         =   0
  108.             Weight          =   700
  109.             Underline       =   0   'False
  110.             Italic          =   0   'False
  111.             Strikethrough   =   0   'False
  112.          EndProperty
  113.          Height          =   345
  114.          Left            =   2220
  115.          Locked          =   -1  'True
  116.          TabIndex        =   12
  117.          TabStop         =   0   'False
  118.          Text            =   "0"
  119.          Top             =   1950
  120.          Width           =   1155
  121.       End
  122.       Begin VB.Label lblAnswerNote 
  123.          Caption         =   "lblAnswerNote"
  124.          BeginProperty Font 
  125.             Name            =   "MS Sans Serif"
  126.             Size            =   8.25
  127.             Charset         =   0
  128.             Weight          =   700
  129.             Underline       =   0   'False
  130.             Italic          =   0   'False
  131.             Strikethrough   =   0   'False
  132.          EndProperty
  133.          Height          =   675
  134.          Left            =   90
  135.          TabIndex        =   20
  136.          Top             =   750
  137.          Width           =   3285
  138.       End
  139.       Begin VB.Label lblAnswer 
  140.          Caption         =   "lblAnswer"
  141.          BeginProperty Font 
  142.             Name            =   "MS Sans Serif"
  143.             Size            =   8.25
  144.             Charset         =   0
  145.             Weight          =   700
  146.             Underline       =   0   'False
  147.             Italic          =   0   'False
  148.             Strikethrough   =   0   'False
  149.          EndProperty
  150.          Height          =   405
  151.          Left            =   90
  152.          TabIndex        =   13
  153.          Top             =   1530
  154.          Width           =   3285
  155.       End
  156.    End
  157.    Begin VB.Frame Frame1 
  158.       Caption         =   "Actual data"
  159.       BeginProperty Font 
  160.          Name            =   "MS Sans Serif"
  161.          Size            =   8.25
  162.          Charset         =   0
  163.          Weight          =   700
  164.          Underline       =   0   'False
  165.          Italic          =   0   'False
  166.          Strikethrough   =   0   'False
  167.       EndProperty
  168.       Height          =   2385
  169.       Left            =   180
  170.       TabIndex        =   7
  171.       Top             =   3840
  172.       Width           =   3615
  173.       Begin VB.TextBox Text4 
  174.          Alignment       =   1  'Right Justify
  175.          BackColor       =   &H80000018&
  176.          BeginProperty DataFormat 
  177.             Type            =   1
  178.             Format          =   """$""#,##0.00"
  179.             HaveTrueFalseNull=   0
  180.             FirstDayOfWeek  =   0
  181.             FirstWeekOfYear =   0
  182.             LCID            =   1033
  183.             SubFormatType   =   2
  184.          EndProperty
  185.          Height          =   345
  186.          Left            =   2550
  187.          TabIndex        =   3
  188.          Text            =   "0"
  189.          Top             =   1830
  190.          Width           =   825
  191.       End
  192.       Begin VB.TextBox Text3 
  193.          Alignment       =   1  'Right Justify
  194.          BackColor       =   &H80000018&
  195.          BeginProperty DataFormat 
  196.             Type            =   1
  197.             Format          =   """$""#,##0.00"
  198.             HaveTrueFalseNull=   0
  199.             FirstDayOfWeek  =   0
  200.             FirstWeekOfYear =   0
  201.             LCID            =   1033
  202.             SubFormatType   =   2
  203.          EndProperty
  204.          Height          =   345
  205.          Left            =   2550
  206.          TabIndex        =   2
  207.          Text            =   "0"
  208.          Top             =   1350
  209.          Width           =   825
  210.       End
  211.       Begin VB.TextBox Text1 
  212.          Alignment       =   1  'Right Justify
  213.          BackColor       =   &H80000018&
  214.          BeginProperty DataFormat 
  215.             Type            =   1
  216.             Format          =   """$""#,##0.00"
  217.             HaveTrueFalseNull=   0
  218.             FirstDayOfWeek  =   0
  219.             FirstWeekOfYear =   0
  220.             LCID            =   1033
  221.             SubFormatType   =   2
  222.          EndProperty
  223.          Height          =   345
  224.          Left            =   2550
  225.          TabIndex        =   0
  226.          Text            =   "0"
  227.          Top             =   390
  228.          Width           =   825
  229.       End
  230.       Begin VB.TextBox Text2 
  231.          Alignment       =   1  'Right Justify
  232.